home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ftlogo.zip / AMPELE.LF next >
Text File  |  1988-06-11  |  899b  |  59 lines
  1. PPROP "FTLOGO "BURY "TRUE
  2. PPROP ".SYSTEM "BURY "TRUE
  3. TO LIGHTRUNWITHBUTTON 
  4. REDPHASE 10
  5. REDYELLOWPHASE 4
  6. GREENPHASEWITHBUTTON 10
  7. YELLOWPHASE 4
  8. END
  9.  
  10. TO GREENPHASEWITHBUTTON :TIME
  11. MOTOR 3 1
  12. REPEAT (:TIME * 5) [RUNSECONDS 0.2 IF SWITCH 1 [STOP]]
  13. MOTOR 3 0
  14. END
  15.  
  16. TO LIGHTRUN 
  17. REDPHASE 10
  18. REDYELLOWPHASE 4
  19. GREENPHASE 10
  20. YELLOWPHASE 4
  21. END
  22.  
  23. TO GREENBLINKPHASE :TIME :COUNT
  24. LOCAL "SMALLTIME
  25. MAKE "SMALLTIME :TIME / (2 * :COUNT)
  26. REPEAT :COUNT [MOTOR 3 0 RUNSECONDS :SMALLTIME MOTOR 3 1 RUNSECONDS :SMALLTIME] MOTOR 3 0
  27. END
  28.  
  29. TO GREENPHASE :TIME
  30. MOTOR 3 1
  31. RUNSECONDS :TIME
  32. MOTOR 3 0
  33. END
  34.  
  35. TO REDYELLOWPHASE :TIME
  36. MOTOR 1 1
  37. MOTOR 2 1
  38. RUNSECONDS :TIME
  39. MOTOR 1 0
  40. MOTOR 2 0
  41. END
  42.  
  43. TO YELLOWPHASE :TIME
  44. MOTOR 2 1
  45. RUNSECONDS :TIME
  46. MOTOR 2 0
  47. END
  48.  
  49. TO REDPHASE :TIME
  50. MOTOR 1 1
  51. RUNSECONDS :TIME
  52. MOTOR 1 0
  53. END
  54.  
  55. TO RUNSECONDS :TIME
  56. REPEAT (300 * :TIME) [REFRESH]
  57. END
  58.  
  59.